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BASSPUT 1bese =1984 00:59:27 AX=11 Bliss-32 V4.0-74 P 
a ae 90:32:95 BASRTL. SRC IBASPUT B32; — 
MODULE BASSPUT ( Basic PUT construct 
i File: BASPUT.B32 Edit:FM1011 


em = '1-011' 
BEGIN 
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'* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

'‘® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
'® ALL RIGHTS RESERVED. 


w 

ca 

® 

* 

® 

:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
tt ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
!* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
'® TRANSFERRED. ® 
® 

:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
!* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
'® CORPORATION. ° 
® 

!* DIGITAL ASSUMES NO RESPONS st ITY FOR THE USE OR RELIABILITY OF ITS * 
® 

* 

* 

* 


IBIL 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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3 60 ed 

3 003 ' FACILITY: 

: sit } Basic support library - user callable 

; One ABSTRACT: 

36 008 : This module is the UPI Level of the Basic PUT construct. Initially, 
37 003 ! it contains only the code for sequential 1/0. This module will set 
$3 Oos up the 1/0 data base for the LUN and go directly to the REC level. 
40 004 4 

41 004 ! ENVIRONMENT: 

$¢ BRe User access mode - AST reentrant. 

44 BRee ! AUTHOR: Donald G. Petersen, CREATION DATE: 19-Feb-79 

te Oca MODIFIED BY 

¢$ O0c9 

42 0048 : DGP, 19-Feb-79 : VERSION gt 

49 49 ! 1-001 - original. DGP 19-Feb-7 

50 50 ! 1- 8 - Add PUT with count. DGP 02-Mar-79 

51 051 1: 1- 0 - Add PUT_RECORD, PUT_REC_CNT. DGP 02-Mar-79 

28 02g ! 1-004 - More work on relative 170. OGP 05-Mar-79 

5 05 ! 1- 3 - Put in the jens for foreign put fers DGP 28-Mar-79 

54 054 1! 1- ¢ - Set up ISBSAUSER-FP. JB 25-JUL-1979 

55 55 ! 1-007 = Pass count to record level correctly. JBS 31-JUL-1979 
56 $ ! 1-008 = Signal if file has been used for virtual 1/0; set BLK_USE flag. 
57 005 ! DGP 16-Oct-79 
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: 28 8 1 ! 1-009 = Signal ILL 10. CHA if Dass situnce is_ less than zero 

: 1 | 1-010 - pees to bas$$cb sbush : aig. min¢2 so GET #0 BASIC statement 
;s © 60 1: porate an erro 

SS. 061 1! 1-011 - Tt the 1-010 Or eielon® ie. was put on at V2.2. Use foreign 
> = Beeg 1 i buffer mechanism for channel 0. FM 9-jul-81. 

; 8 0063 1 i- 

; 3666 0064 1 

s 65 0065 1 '<BLF/PAGE> 


1 
BAS$PUT bese -1984 00:59:27 AX-11 Bliss-32 V4.0-74 Page 3 
1-011 eae 1 90:33:85 BASRTL. RCIBASPUT B32; . (2) 
a 66 1! 
; 668 67 1 ! SWITCHES 
a: aE 
$ 4 O76 : SWITCHES ADDRESSING _MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
ae Bf6 1! 
ir a 073 1 ! LINKAGES 
Y oye a | 074 1! 
is 075 1 
Fee ys 343 1 REQUIRE ‘RTLIN:OTSLNK'; ! Define all Linkages 
:; 78 203 1 
; 79 1! 
H 80 £444 1 ! TABLE OF CONTENTS: 
; #8 508 1! 
aa R202 1 
; 8 510 1 FORWARD ROUTINE 
(3 BS 0511 «1 BASSPUT_REC_CNT : NOVALUE, ' UPI Level Relative PUT with count 
ls 85 Batg 1 BASSPUT-RECORD : NOVALUE, ' UPI level Relative PUT 
i; 66 0513 «1 BASSPUT_COUNT : NOVALUE, ' UPI Level Sequential PUT with count 
is O7 0514 1 BASSPUT”: NOVALUE; ! UPI Level Sequential PUT 
; 8 B21? 1 
; | (COBY 0516 1! 
; 90 Bet? 1 ! INCLUDE FILES: 
iz 91 518 1! 
+e. 0519 1 ’ 
E 4 3289 ! REQUIRE ‘RTLML:OTSISB'; ! ISB definitions 
: 44 Bee : REQUIRE ‘*RTLML:BASPAR'; ' Basic specific parameters 
§ 44 148: ! REQUIRE ‘RTLML:OTSLUB'; ! LUB definitions 
3 198 0858 : REQUIRE "RTLIN:RTLPSECT’; ! Define DECLARE_PSECTS macro 
3; 101 0949 1 LIBRARY ‘'RTLSTARLE'; ! Starlet system macros 
3 108 0950 1 
; Ww 951 1! 
3; 6104 826 1 ! MACROS: 
: 105 953 1! 
i; 6106 B38 1! NONE 
: 107 955 1! 
; 108 8928 1 ! EQUATED SYMBOLS: 
: 109 0957 1! 
: 110 9338 1! NONE 
3 191 959 1! 
: 118 3008 1! 
ae 961 1 ! PSECT DECLARATIONS: 
z («116 9444 1! 
is 995 096 1 DECLARE_PSECTS (BAS); 
3 116 bod ; ! 
¥ ae b 96 1 ! OWN STORAGE: 
> 118 966 1! 
: 119 1! NONE 
: 130 38 1! 
s el $ 1 ! EXTERNAL REFERENCES: 
¢ 188 970 1! 
: 12 0971 #1 


1 
vat + HERIREE RAED WBMGA 4a de pee 


ee ASeSST OPT E 


124 972 1 

125 378 1 10 : WOVALUE , ! Signal fatal BASIC 1/0 errors 

126 974 1 BAS$$STOP™: NOVALU ! gpenet error 

: t 4 : BASSSREC _PSE : JSB_ PUT NOVALUE, A$ level processing - RMS interface 
sequ 

129 375 1 BASSSREC_PRE : JSB_PUT NOVALUE, ' REC level reccertng © = RMS 

1350 344 | 1 ! interface PUT relative 

131 a4 1 BASSSOPEN ZERO : NOVALU ' Open channel zero 

1 é 980 1 BAS$$CB_POSH : JSB_CB PUSH NOVALUE, i Load register CCB 

' ? O98 ! BAS$$CB-POP : JSB_CB_POP NOVALUE; ! Done with register CCB 

135 8 : 1 !¢ } 

: $ 4 ; The following are the error codes used in this module. 

138 0986 1 

139 098 1 EXTERNAL LITERAL 

140 0988 #1 BASSK_ILLILLACC : UNSIGNED (8), ! Illegal or ihegtcet access 

141 0989 1 BASS$SK_ILLIO_CHA : UNSIGNED (8), ' Illegal I/0 channel 

if Bape ; BAS$K_IO_CHANOT : UNSIGNED (8); ! 1/0 channel not open 
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BAS$PuT 16-Sep-1984 00:59:27 AX-11 Bliss-32 V4.0-74 
ait 12286871382 99:33:43 BASRTL. RC IBASPUT.B32; 

145 992 1 GLOBAL ROUTINE BASSPUT ( ! PUT sequens tal 

148 995 1 ! Logical unit number 

14 994 1 ) : NOVALUE = 

148 995 1 

149 338 1 tee 

129 1944 : FUNCTIONAL DESCRIPTION: 

132 999 1! This routine will set up the 1/0 data base for this LUN if necessary 

15 1000 1! and then go to the REC level directly. When control is returned to 

154 1001 1! this routine, it pops the CCB off of the 1/0 system. The actual inter- 

12? 1006 : } face to RMS is done at the REC level. One record is written. 

189 1004 1 ! FORMAL PARAMETERS: 

158 1005 1! 

159 1006 1! UNIT. rlu.v Logical unit number 

160 1007 1! 

161 1008 1 ! IMPLICIT INPUTS: 

4 1009 1! 

16 1010 1! LUB$V_READ_ONLY file is read gate 

166 191) : LUB$V~VA_USE indicates virtual array usage 

166 1918 1 ! IMPLICIT OUTPUTS: 

167 1014 1! ‘ 

168 1015 1! LUBSV_BLK_USE indicates non-virtual array usage 

169 1016 1! 

170 1017 1 ! COMPLETION CODES: 

171 1018 1! 

172 1019 1! NONE 

173 1020 1! 

174 1021 1 ! SIDE EFFECTS: 

175 1956 ; 

176 1025 1! Signals: 

177 1024 1! BAS$K_IO_CHANOT and 3 

178 1025 1! BAS$K-ILCIO_ CHA for foreign buffers 

179 1068 e. BASSK_ILLILCACC illegal or illogical access 

180 1027 1! 

181 1028 1 !-- 

182 94 1 

183 1030 BEGIN 

184 1031 

185 1036 BUILTIN 

186 103 “ FP; 

187 1034 ’ 

188 1035 GLOBAL REGISTER 

189 1036 CCB = K_CCB_REG : REF BLOCK C, BYTE); 

190 1037 

191 1038 LOCAL 

136 1039 BUFFER size. 

19 1040 FMP : REF BLOCK C, BYTE), : 

194 1041 ACTUAL _UNIT, ! Unit number, without foreign buffer 

195 H ok TEMP 3 ! CCB for foreign buffer, or 0 

196 104 

19 1044 '¢ : 

198 1045 ! If channel passed is less than zero then this is an error. 

260 1009 8 

$1 1048 IF (UNIT LSS 0) THEN BASS$S$STOP (BAS$SK_ILLIO_CHA); 
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1 
AS$PuT 18-Se -1984 00:59:27 AX-11 Bliss-32 V4.0-74 Page 
; 11 12-88-13 90:33:65 BASRIL SREIBASPUT B30¢4 ° 
9 1968 
0 1 2 FMP = .FP; 
04 18 1 '¢ 
05 1 26 ! Check for ‘foreign buffers’’. If the unit number exceeds 255 then a foreign 
oe 10 ' buffer is specified. The foreign buffer is actually a unit number whose 
0 1054 ! buffer is to be used to do the PUT. The ‘foreign buffer’ unit 
08 1055 ! is pushed to pick up the CB address which is passed to the REC level. Then 
09 1 2$ ! the unit pointing to the file is pushed so that the CCB points to the loge 
10 1 : ! ical unit which actually do the 1/0. Upon return, the necessary RAB fields 
11 1058 ! (USZ and UBF) have been restored and two CB pork are done if necessary. 
\§ 1059 ! Explicit use of channel zero e.g. GET #0, POT #0.... are similar to 
1 1399 ! foreign buffer in the sense that we use the buffer gf input side of Z 
1 52 } channel 0 to do the PUT but output side of channel 0 for other characteristics. 
YY 1068 TEMP_R11 = 0; 
+ He: ACTUAL_UNIT = .UNIT; 
19 1066 IF (.UNIT GTR LUBSK_LUN_MAX OR .UNIT EQL 0) 
220 106 
221 1068 BEGIN 
$s¢ 1069 
$$ 1070 LOCAL 
24 1071 FORE IGN_BUFFER; 
225 O76 ; 
226 107 IF .UNIT EQL 0 
$56 1074 THEN 
28 1075 
$¢e 1076 + ? 
230 1077 3 !This is a explicit channel 0 operation. Treat input side of channel zero 
251 1078 ; ‘as a foreign buffer. 
$36 1079 te 
2 1080 4 BEGIN 
234 1081 4 FOREIGN_BUFFER = LUBSK_LUN_INPU; 
235 1088 4 ACTUAL_ONIT = LUBSK_LUR_BPRI; 
256 1083 4 END 
237 1084 3 ELSE 
238 1085 
239 1086 + j 
240 1087 'This is a regular foreign buffer operation. 
se) 1088 te 
4g 1089 4 BEGIN 
24 1090 «4 FOREIGN BUFFER = .UNIT/BASS$K_LUN MAX; 
244 1091 4 ACTUAL_ONIT = .UNIT MOD BASSR_LUR_MAX; 
i HBRG om 
“44 H+ IF (.UNIT NEQ 0 AND .FOREIGN_BUFFER GTRU BAS$K_MAX_FOR_B) THEN BASSS$STOP (BASS$K_iILLIO_CHA); 
49 1098 BASS$$CB_PUSH £ Fone Gu purr ee LUBSK_ILUN_MIN); 
50 109 CCB CISB$A_USER_FP) = >FMP CSFSL_SAVE_FPJ; 
3} 64 BUFFER_SIZE = .CCB CLUBSW_RBUF _STZE); 
258 H's IF ( NOT .CCB CLUBSV_OPENED] AND .UNIT NEQ 0) THEN BASS$STOP_IO (BAS$K_IO_CHANOT); 
55 1108 TEMP_R11 = .CCB; 
56 110 END; 
57 1104 
58 1105 BAS$$CB_PUSH (.ACTUAL_UNIT, LUBSK_ILUN_MIN); 
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CCB CISBSA_USER_FPJ = .FMP CSFSL_SAVE_FPI; 


al 
oO 


i If we are ona Gefouls unit (unit number less than zero) then 
i we can open it S$ not already open. Otherwise it must 
_be open already. 


Ven NOT .CCB CLUBSV_OPENED]) 
ces’ »ACTUAL_UNIT LSS 0) 


BEGIN 
BUZeeOPenFERD (,FMP CSFSL_SAVE_FPJ) 


3EGIN 
BASSSSTOP_10 (BAS$K_10_CHANOT); 


IF (.TEMP_R11 EQLA 0) THEN BUFFER_SIZE = .CCB CLUB$/_RBUF_SIZE]; 


La had 
SSHIS ARRAN SSSSIFETFALLIS 


am a a at ak a a a et ee a et st ts 2 = ss 2 


me tt a a a a a = sa as ss a ss os a ss a 
ee ab bade sb be abe eb bee oboe bat -sb-naaen 


: 
; Ss CCB CISB$B_STTM_TYPE] = ISBSK_ST_TY_PSE; 
2 
2 
2 
2 
2! 
2 
2 
7 


0 
Bt 
4 
& 
7 
0 
4 
5 
6 
7 
281 8 '¢ 
ons 9 i Now that the data base is in place, store the statement type and go 
at ? ‘ directly to the REC level. 
285 4 
286 
+44 : Check for virtual array usage and set block usage 
89 6 
290 4 If .CCB CLUBS$V_VA_USE] OR .CCB CLUBSV_READ_ONLY] THEN BASS$S$STOP_IO (BAS$K_ILLILLACC); 
29 9 CCB CLUBSV_BLK_USE) = 
4 ? is BASSS$REC_PSE ( (TBUFFER size. - TEMP_R11); 
3.44 § a Now that the PUT has been done, pop the CCB off the 1/0 system. 
97 4 "  BASS$CB_POP (); 
99 § i Pop the “‘foreign buffer’’ CB if necessary. It is kept on the CB stack until 
sf H ‘ now to guard against an AST closing the foreign buffer channel. 
34 % 
0 0 re. c. TEMP_R11 NEQA 0) 
04 1 
05 § 
06 . TEMP_R11; 
07 4 BASSSCE. POP™ @: 
08 5 END; 
i ; 
10 END; ‘End of BASSPUT 
-TITLE BASSPUT 
~IDENT \1-011\ 


N 1 
AS$PuT 16-Sep-1984 00:59:27 AxX-11 Bliss-32 V4.0-742 Page 8 
at 12-808 -1 3b 90:33:85 BASRTL. SRCIBASPIT B32: 1 - si 
.EXTRN BASS$S$STOP_I0, BAS$$STOP 
“EXTRN BA ASSeRec PSE’ BASSSREC_PRE 
"EXTRN BA S$SOPER fn JERO BAS$$CB_PUSH 
-EXTRN BASS$S$CB_POP, BASS s$k ILLICLACC 
-EXTRN BASSK_ taf 10° CHA 
-EXTRN BASS$K~10_CHANOT 
.PSECT _BASSCODE,NOWRT, SHR, PIC,2 
OFFC 00000 eENTRY BAsePur Save R2,R3,R4,R5,R6,R7,RB,RIO,R10,—- ; 0992 
A 000000006 — 0000 MOVAB BASS$$CB_PUSH, R10 : 
3 Mitddittdits 88 3 itt MOVAB BAS$$STOP, RO : 
8 000000006 00 3 00010 MOVAB BASSS$STOP_10, R8 : 
58 04 AC 00 00017 MOVL UNIT, R117 + 1048 
07 18 0001B BGEO si : 
7E 006 8F 9A 0001D MOVZBL M#BAS$K_ILLIO_CHA, -(SP) : 
69 gi FB 90021 CALLS #1, BASS$STOP : 
53 D DO 00024 1$: MOVL FP, FMP + 105 
56 D4 00027 CLRL ~—srTEMP_R11 + 106 
54 5B D0 00029 MOVL R11, ~ACTUAL_UNIT + 106 
00000077 &F 5B OT 000¢¢ CMPL ~=soR11. #11 + 106 
04 14 000 BGTR 2$ : 
B DS 00035 TSTL = R11 : 
5A 12 00037 BNEQ 7$ : 
5B D5 00039 2$: TSTL = R11 + 1073) 
08 12 00038 BNEQ 3$ : 
52 07 CE 0003D MNEGL #7, FOREIGN BUFFER + 1081. 
54 08 CE 00040 MNEGL #8, ACTUAL_ONIT + 1082) 
16 11 00043 BRB ; 1073) 
52 5B 00000100 8F C7 00045 3$: DIVL3 #256, R11, FOREIGN BUFFER + 1090 | 
7E 00 8 01 7A 00040 EMUL #1, R11 , 2S + 1091. 
54 54 BE 00000100 8F 7B 00052 EDIV. #256, (SP)+, ACTUAL_UNIT, ACTUAL_UNIT : 
55 D4 00058 4$: CLRL eR + 1094 | 
5B 05 00050 TSTL = RV : 
12 13 0005F BEQL 5$ ; 
55 06 00061 INCL = RS ; 
0000007F BF 52 D1 00063 CMPL § FOREIGN_BUFFER, #127 : 
07 1B 0006A BLEGU ; 
7E 006 8F 9A 9006¢ MOVZBL WBASSK k {LL1O, CHA, =(SP) ; 
69 01 FB 0007 ALL ; | 
50 08 CE 00073 5$: MNEGL : 1096 
6A 16 00076 JSB ne: RO. _PUSH ; | 
FF4C ge OC A3 0 00078 OVL 12(FMP)~ -180(CCB) : 1097 
g D2 AB 3C 0007E MOV2WL -46(CCBS, BUFFER_SIZE : 1098. 
OA FC AB E8 00082 LBS  -4(CCB), 6$ + 1100 
07 55 E9 00086 LBC 6$ ; 
7E 006 BF 9A 00089 MOVZBL #BAS$K_10_CHANOT, -(SP) ; 
68 1 FB 008D CALLS #1, BAS$$STOP_I0 : 
56 B D 9090 6$: MOVL (é, TEMP_R11 : 1102 
50 08 ce 0093 7$: MNEGL #8, RO > 1105 
52 4 00 00096 MOVL ACTUAL_UNIT, R2 ; 
6A 16 00099 JSB BAS$$CB_PUSH ; 
FF4C cg oc AS 09 0098 MOVL 12(FMP)7 -180(CCB) : 1106 
1 FC AB EB OOOA1 PLBS -4(CCB); 9$ 111 
54 D3 OOS TSTL = ACTUAL_UNIT > 1116, 
0c 18 OOOA GEG ~StséBS ; 
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SSPUT 1-56 -1984 00:59:27 AX-11 Bliss-32 V4.0-742 
011 aoe 90:33:95 EBASRTL SRe BASPUT .B32;1 
s SS 1159 GLOBAL ROUTINE BASSPUT_RECORD ( ! PUT Sequential 
3 514 1160 ' Logical unit number 
: 315 1161 RECORD_NUM i relative record number 
; 1g 1168 ) : NOVALUE = 
.. ae 116 
; 318 1164 14+ 
3 1} 1392 ; FUNCTIONAL DESCRIPTION: 
g 21 1169 : This routine will set a | the 1/0 data base for this LUN if necessary 
; $§ 1168 : and then go to the REC level directly. When control is returned to 
s te 1169 : this routine, it pops the CCB off of the 1/0 system. The actual inter- 
; $e 1179 face to RMS is done at the REC level. One record is written. 
; $59 1176 FORMAL PARAMETERS: 
; 355 1174 ! UNIT. rlu.v Logical unit number 
s Bey 1175 : RECORD_NUM.rl.v relative record number 
s 330 1176 : 
.; Bae 1177 ! IMPLICIT INPUTS: 
; 332 1178 1! 
; 2 1179 ! LUB$V_VA_USE indicates virtual array usage 
3 $30 BF LUBSV~READ_ONLY file is read only 
3 336 1186 ! IMPLICIT OUTPUTS: 
s 337 118 ! 
; $30 Bt LUB$V_BLK_USE indicates non-virtual 1/0 usage 
; 340 1186 ' COMPLETION CODES: 
; «341 1187 ! 
H a6 1188 : NONE 
s 34 1189 : 
3 44 1190 ! SIDE EFFECTS: 
3; «345 1191 : 
: 346 1136 ! sionals: 
>; 347 119 : BASSK_ILLIO_CHA and ; 
; 348 1194 ' BAS$K_IO_CHANOT for foreign buffers 
: a7 1195 ! BASS$K_ILCILLACC 
; 350 1398 : 
s 33% 119 !o~< 
3 $26 1198 
oo 1199 BEGIN 
: 354 1200 
3 $22 160) BUILTIN 
; 325 1508 
s 338 1204 GLOBAL REGISTER 
; 359 1205 CCB = K_CCB_REG : REF BLOCK C, BYTE); 
; 0 1506 
: 361 120 LOCAL 
3 § 1208 BUFFER_SIZE, 
: 1209 FMP : REF BLOCK C, BYTE), : 7 ; 
: 364 1210 ACTUAL_UNIT, ! Unit number, without foreign buffer 
: 5 1211 TEMP_RT1; ! CCB for foreign buffer, or 0 
: ef Ht FMP = .FP; 
. '¢ 
: 369 1215 ! Check for “foreign buffers’’. If the unit number exceeds 255 then a foreign 


cteteenmagll VE FS arate a 
| tases :59:27 AX-11 Bliss-32 V4.0-74 
ie 19=808-13 7 00:28:95 YBASRTL SRE BASPUT .B32; 
: . The foreign buffer is actually a unit number whose 

EE HE fT RAISE etree hepa eeu "¥eaattd tection 

: 37 1218 i is pushed to pick up the CB addr Le The 

: ile i shed so that the CCB points to the lo 

4 is i 8 Tent ‘ont’ chien Eeteat ty LL Upon return, the necessary RAB tields 

: 375 1221 ! (USZ and UBF) have been restored and two CB_POPs are done if necessary. 

; 376 1 le 

; TEMP_RI1 = 0; 

: as : ACTUAL_UNIT = .UNIT; 

; 0 i 6 IF (.UNIT GTR LUBSK_LUN_MAX) 

: 381 1 THEN 

; Be : BEGIN 

; 38 

: LOCAL 

; 38g He FOREIGN_BUFFER; 

: 386 1 

: N_BUFFER = .UNIT/BASS$K_LUN_MAX; 

Hs i cet peg re tec 

: 35 $82 3 IF (.FOREIGN_BUFFER GTRU BASSK_MAX_FOR_B) THEN BASSS$STOP (BASS$K_ILLIO_CHA); 
: 391 1237 3 

: H (. FOREIGN BUFFER, LUBSK_LUN_MIN); 

; 338 1539 3 eta TisBSh USER FP = [FMP ESFst SAVE TPT: 

; 39¢ 15¢9 ; IF ( NOT .CCB CLUBSV_OPENED]) THEN BASS$$STOP_IO (BAS$K_IO_CHANOT); 

+ 396 124 ; 

: BUFFER_SIZE = .CCB CLUB$W_RBUF_SIZE); 

; 395 i ; TEMP_RT1 = .CCB; 

. 399 . 3 

: 400 124 

: H (.ACTUAL_UNIT, LUBSK_ILUN_MIN); 

: 401 134) ASSSCEPUSH < ACTUAL UIT. LUBBK, LUN, 

: rir 1380 IF ( NOT .CCB CLUBSV_OPENED]) THEN BAS$$STOP_IO (BAS$K_IO_CHANOT); 

: rit 1382 2 IF (.TEMP_R11 EQLA 0) THEN BUFFER_SIZE = .CCB CLUBSW_RBUF_SIZE); 

+ 407 125 . 

. '¢ 

: 409 1588 g ' Now that the data base is in place, store the statement type, store the key, and go 
: 410 1526 § directly to the REC level. 

> 411 ie ; 

; CCB CLUBSL_LOG RECNO] = .RECORDNUM; 

; 41 HE , 68 ato MAL MATS = [SBS$K_ST_TY_PRE; 

4 418 1561 i Check for virtual array usage and set block usage 

+ 416 126 ie 

: 418 1368 IF .CCB CLUBS$V_VA_USE) OR .CCB CLUBSV_READ_ONLY) THEN BASSSSTOP_IO (BAS$K_ILLILLACC); 
+ 419 1365 2 

: BLK_USE) = 1; 

: 15) 156? GASSSREE PRE (TBUFFER_SIZE, .TEMP_R11); 

: ' 

: 155 i é i Now that the PUT has been done, pop the CCB off the 1/0 system. 

: 038 1574 BASSSCB_POP (); 

+ 426 1272 2 !+ 


BASSPUT 18-Sep-1984 00:59:27 YAN=11 BLiss=32_v4.0-7 p 
1-011 Ve-$ep=1984 11:56:32 ERASRTL SRESBASPUT O32; a 


: 427 1273 ! Pop the ‘foreign buffer’’ CB if necessary. It is kept on the CB stack until 
: : $ ! a t now to guard aheinst an AST closing the foreign eulter channel. 
: 430 1 i: 
> 431 127 IF (.TEMP_R11 NEQA 0) 
; 4 é 1278 THEN 
> 4 1279 
: 434 1280 CCB = .TEMP_R11; 
> 435 1281 BASSSCB _POP™(); 
: 436 1 Be : END 
s 637 ise 
: 438 1284 1 END; 'End of BAS$PUT 
OBFC 00000 -ENTRY BASSPUT_RECORD, Save R2,R3,R4,R5,R6,R7,R8,- ; 1159, 
59 000000006 00 9€ 00002 MOVAB BASS$CB_POP, R9 : | 
58 000000006 00 9€ 00009 MOVAB BAS$$CB~PUSH, R8 ; 
57 000000006 00 3 00010 MOVAB BASSSSTOP_IO, R7 : 
53 5D DO 00017 MOVL FF : 1213, 
55 D4 OOOIA CLRL —«TEMP_R11 > 1223) 
54 04 AC DO 0001C MOVL UNIT? ACTUAL_UNIT + 1224) 
00000077 = BF 04 AC DI 00 6 cMPL NIT, #119 > 1226. 
52 04 aC 00000100 &F cf 0002A DIVL3 #256, UNIT, FOREIGN BUFFER : 1233. 
7E 00 06 AC. 01 7A 00033 EMUL #1, UNIT S + 1234 
54 54 BE 00000100 8F 7B 00039 EDIV #256, (SP)+, ACTUAL_UNIT, ACTUAL _UNIT : 
0000007F =F 52 D1 00042 CMPL § FOREIGN_BUFFER, #127 : 1236. 
0B 1B 00049 BLEGU 1$ ; 
7E 006 8F 9A 0004B MOVZBL #BASSK ILL 10, CHA, -<SP) : 
000000006 00 gi FB O04F CALLS BASS$S ; | 
0 D4 00056 1$: CLAL RO" : 1238 | 
68 16 00058 JSB BASS$$CB_PUSH : 
FF4C CB 0c A3 DO 0005A MOVL TecFMP); -180(CCB) + 123 
07 FC AB EB 90060 BLBS 4(CCB) + 1241 
7E 006 BF 9A 00064 MOVZBL wh AS$K_{0 CHANOT , -(SP) : 
67 01 FB 00068 CALLS BASSSSTO F | 
56 D2 AB 3C 0006B 2$: MOVZWL wrace TOFFER. SIZE : 1243. 
55 5B D0 006 MOVL cB, fEMB RI + 1244. 
50 08 ce 0072 3$: MNEGL @ Ro : 1247 
52 54 D O97 MOVL ACTUAL UN UNIT R2 , 
68 16 0007 JSB BASSS 3 
FF4C cB oc A 09 O007A MOVL  12(FMP)> PusROC CCB) > 124 
0 FC AB f 0080 BLBS  -4(CCB), 4$ > 125 
7e 00G 8F 9A 0084 MOVZBL #BASSK {o CHANOT, =(SP) ; 
6 a. 0 88 CALLS #1, BAS$SSTOP_IO. ; 
5 D5 00088 4$ TST 1 + 1252. 
4 1 9080 BNEQ ; 
SS BAF BS SSR os, ROUIM eh DUET ATE ss 
reDS cB 2 30 S33 MOVE #89 Oe tecay : 1389 
0 FF E8 00090 BLBS “i(eca) > 1264. 
07 FC «AB 0 Ft OAl BBC #2, -4(€CB), 7$ ; 
7E 006 8F 9A O00A6 6S: MOVZBL #BASSK_ILLICLACC, -(SP) ; 
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_BASSCODE + OOFA 


Routine Base: 


198 bytes, 
1 


1285 


; Routine Size: 


2 
1B-sSe0-1964 00:59:27 yaRedt BL iag-32 v4.02742 


GLOBAL ROUTINE BASSPUT_COUNT ( ! PUT sequential with count 
UNIT ! Logical unit number 
COUN ! No. of bytes in record 
) : NOVALUE = 


++ 
FUNCTIONAL DESCRIPTION: 


SIDE EFFECTS: 


Blenete: 

BAS$K_I0_CHANOT and 
BAS$K_JLCIO_CHA for foreign buffers 
BAS$K~ILLILCACC 


: 
448 ' 
449 ‘ This routine will set up the 1/0 data base for this LUN if necessary 
450 ! and then go to the REC level directly. When control is returned to 
451 ' this routine, it pops the CCB off of the I/0 system. The actual inter- 
oe | face to RMS is done at the REC level. One record is written. 
434 FORMAL PARAMETERS: 
456 i UNIT. rlu.v logical unit number 
tet COUNT. rl.v no.of bytes in record 
459 | IMPLICIT INPUTS: 
i LUB$V_READ_ONLY file is read only 
LUB$V_VA_USE virtual array 1/0 usage 
} IMPLICIT OUTPUTS: 
LUB$V_BLK_USE non-virtual array 1/0 usage 
| COMPLETION CODES: 
NONE 
i 
i 
i 
i 
i 
i 
i 
le 


BEGIN 
BUILTIN 
FP; 


IAPOIPONITUNININININID 2 3 3 2 OS | “QOOCOKOOCOCOOSCOOOOOOOOOOMMoc 
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GLOBAL REGISTER 
CCB = K_CCB_REG : REF BLOCK C, BYTE); 


LOCAL 
FMP : REF BLOCK C, BYTE], k 
ACTUAL_UNIT, ! Unit number, without foreign buffer 
TEMP_RT1; ! CCB for foreign buffer, or 0 


FMP = .FP; 


'¢ 
! Check for “foreign buffers". if the unit number exceeds 255 then a foreign 
! buffer is specified. The foreign buffer is actually a unit number whose 
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H&E 
R—OOODNOA VE WN OOO NOAUNE WD “OO DNA UE WN (0 OONOUE WN "OOS VNO UNE WN OOONO 


WANN 


POPOPOPoMOMOPMPORINONONONINONONYI 8 2 tt 9 9 


H 2 
ener a 


buffer is used for the PUT operation. The "foreign buffer’’ unit 

is pushed to pick up the CB address which is passed to the REC level. Then 
the unit pointing to the file is pushed so that the CCB points to the 09" 
ical unit which actually do the 1/0. Upon return, the necessary RAB fields 
(USZ and UBF) have been restored and two CB_POPs are done if necessary. 
Explicit channel zero operation is similar fo foreign buffers in the sense 
that it uses input side of channel zero for buffer but output side of channe' 
zero for everything else. 


~  TEMP_R11 = 0; . 
ACTUAL_UNIT = .UNIT; 
If (UNIT GTR LUBSK_LUN.MAX OR .UNIT EOL 0) 
BEGIN 
Loc 


1 OL legate V4.0-74 
BASRTL.SRC JBASPUT.B32; 


oO 
oo 


AL 
FORE IGN_BUFFER; 


IF _ .UNIT EQL 0 
THEN 


le 


ithis is a explicit channel 0 operation. Treat input side of channel zero 
1as a foreign buffer. 


BEGIN 
FOREIGN BUFFER = LUBSK_LUN_INPU; 
ACTUAL_ONIT = LUB$K_LUN_BPRI; 


END 
ELSE 


WN “SO OCONOUSWN “OVONOUS WN —O0O@~ 


'¢ 
i This is a regular foreign buffer operation. 


4 
4 
5 
5 
P) 
5 
5 
5 
> 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 


iw 


BEGIN 
FOREIGN BUFFER = .UNIT/BASSK_LUN_MAX; 


CCD 69 C9 SINISE SSS SSID AA OA AA III & EE EE 


ee ee ee ee ee ee ee a a ee et ee a a a ad dd od do 
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534 -UNIT 

535 ACTUAL_ONIT = .UNIT MOD BASSR_LUN_MAX; 

239 END; 

236 3 IF (.UNIT NEQ 9 AND .FOREIGN_BUFFER GTRU BASSK_MAX_FOR_B) THEN BASS$STOP (BAS$K_ILLIO_CHA); 
540 8 BAS$$CB_PUSH Fs te ay R, LUBSK_ILUN_MIN); 

341 8 CCB CISBSA_USER_FP) = FMP CSFSL_SAVE_FPJ; 

508 IF ( NOT .CCB CLUBSV_OPENED] AND .UNIT NEQ 0) THEN BASS$SSTOP_IO (BAS$K_IO_CHANOT); 
a8 TEMP_R11 = .CCB; 

ts oy 

548 BAS$$CB_PUSH CAs IA UNIT, LUBSK_ILUN MIN); 

4 ‘ CCB CISBSA_USER_FP) =". FMP CSFSL_SAVE_FPI; 

551 i If we are on a default unit (unit number less than zero) then 

226 ! we can open it if it is not already open. Otherwise it must 

227 be open already. 


2 
BASSPUT 1h-58 -1984 00:59:27 AX-11 Bliss-32 V4.0-74 Page 16 
wt 1e-8ep-19 4 99:23:95 BASRTL  SREIBASPUT 03274 . (5) 
; ri 1400 
; § 1401 If ( NOT .CCB CLUBS$V_OPENED]) 
3 3 1006 THEN 
; 558 140 
; 559 Vege IF (.ACTUAL_UNIT LSS 0) 
; 560 1405 THEN 
; 20) 1608 BEGIN 
3 $6 140 BASSSOPEN_ZERO (.FMP CSFSL_SAVE_FPJ) 
3; > 1408 
; 208 1409 
3 «363 1410 BEGIN 
; 296 1411 BASS$STOP_I0 (BASS$K_I0_CHANOT); 
; 56 Vols END; 
; 568 141 
; 569 1414 + 
: 570 1415 ! Now that the data base is in place, store the statement type and go 
3 a) Rt directly to the REC level. 
3 578 113 : CCB CISBSB_STTM_TYPE] = ISBSK_ST_TY_PSE; 
; 575 1420 ! Check for virtual array usage and set block usage 
oe 
3 278 1488 IF .CCB CLUB$V_VA_USE] OR .CCB CLUBS$V_READ_ONLY] THEN BASS$S$STOP_IO (BASSK_ILLILLACC); 
; 580 1¢62 CCB CLUBSV_BLK_USE] = 1; 
; 281 1426 ,, BASSSREC_PSE (7COUNT, .TEMP_R11); 
3 287 1oc8 Now that the PUT has been done, pop the CCB off the I/0 system. 
; 585 1250 BASS$$CB_POP (); 
; 586 1431 ! . 
; 587 1432 ! Pop the ‘foreign buffer’’ CB if necessary. It is kept on the CB stack until 
3 3 ioe? now to guard against an AST closing the foreign buffer channel. 
; 590 1435 
; 591 1436 IF (,TEMP_R11 NEQA 0) 
; 236 1437 ¢ THEN 
3 39 1438 BEGIN 
; 594 1439 3 CCB = .TEMP_R11; 
3; 595 1440 BASS$CB_POP (); 
s 5% 1441 § END; 
3 597 | 
; 598 144 1 END; 'End of BASS$PUT_COUNT 
OBFC 00000 eENTRY BASSA\T COUNT. Save R2,R3,R4,R5,R6,R7,R8,- ; 1286 
59 90000006 0 9€ 00002 MOVAB BAS$$CB_POP, R9 ; 
8 00000000G 00 43 0009 MOVAB BAS$$CB_PUSH, Re ; 
2 00000006 00 3 ett MOVAB BASS$$STOP_IO, R 3 
3 D OD it MOVL FP, FMP 3s 7 33 
6 D4 3 1A CLAL TEMP_R11 3 3 ¢ 
50 04 AC 00 0001C MOVL UNIT, RO 3: 135 
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BASSPUT 
e0t1 


; Routine Size: 


; 599 


229 bytes, 


1444 1 


Routine Base: 


-BASSCODE + 01C0 


AX-11 Blis 
BASRTL.SRC 


$ 
J 


-32 V4.0-742 
BASPUT .B32;1 


2 
eAsteuT 1B-Sep-1984 00:59:37 yayett BLis4=32 yu 0274 


; 601 1445 1 GLOBAL ROUTINE BASSPUT_REC_CNT ( ! PUT relative with count 

; one Joes 1 ' Logical unit number 

; 60 1447 1 RECORD_NUM, i relative record number 

; 604 1e08 1 UNT ! No. of bytes in record 

; 605 1ee ! ) : NOVALUE = 

: $09 122) | tee 

H ons 1026 : FUNCTIONAL DESCRIPTION: 

: 610 1454 1/3 This routine will set up the 1/0 data base for this LUN if necessary 
; 611 1455 1! and then go to the REC level directly. When control is returned to 
; oi¢ 1928 1! this routine, it pops the CCB off of the 1/0 system. The actual inter- 
3 el7 Veet : ; face to RMS is done at the REC Level. One record is written. 

; 615 1459 | FORMAL PARAMETERS: 

3 617 1461 1} UNIT. rlu.v logical unit number 

; 618 1o38 1? RECORD_NUM.rl.v relative record number 

; a ioe? : COUNT.Fl.v no.of bytes in record 

; 621 1465 ! IMPLICIT INPUTS: 

: 858 1467 1! LUB$V_READ_ONLY file is read only 

5 oct 1o08 ! LUB$V~VA_USE virtual array usage 

; 626 1470 { IMPLICIT OUTPUTS: 

: oc8 Ore : LUB$V_BLK_USE non-virtual array use 

: 630 1474 1 | COMPLETION CODES: 

3; 631 1475 1! 

i ORB I 

; 634 1478 | SIDE EFFECTS: 

; $36 1480 1 | Signals: 

637 1481 1 | BASSK_ILLIO_CHA and 

3; 638 1086 1! BAS$K_I0_CHANOT for foreign buffers 

; 639 1483 1! BASSK_ILCILLACC 

; 640 1484 1! 

eh 086 1 

; 645 1487 2 BEGIN 

+ 645 1489 3 BUILTIN 

Pe en toe 

; 648 1498 3 GLOBAL REGISTER 

> 649 149 CCB = K_CCB_REG : REF BLOCK C, BYTE); 

: 820 1298 LOCAL 

; 632 1496 FMP : REF BLOCK C, BYTE), 
3; 65 149 ACTUAL _UNIT, ! Unit number, without foreign buffer 
3 654 1498 TEMP 3 ! CCB for foreign buffer, or 0 
3; «655 1499 

; 656 1500 FMP = .FP; 

3; 657 1501 '¢ 


SEEreses 


323 


Mm 2 

16-Sep-1984 00:59:27 AX=-11 Bliss-32 V4.0-742 

13280071382 99:38:95 EBASRTL SRE BASPUT .832;1 
Check for ‘foreign buffers’’. If the unit number exceeds 255 then a foreign 
buffer is specified. The foreign putter is actually a unit number whose 
buffer is to receive the record which is read. The ‘foreign buffer’ unit 
is pushed to pick up the CB address which is passed to the REC level. Then 
the unit pointing to the file is pushed so that the CCB points to the toga 
ical unit which actually do the 1/0. Upon return, the necessary RAB fields 
(USZ and UBF) have been restored and two CB_POPs are done if necessary. 


TEMP_R11 = 0; 

ACTUAL_UNIT = .UNIT; 

UF CUNT GTR LUBSK_LUN_MAX) 
BEGIN 


LOCAL 
FORE IGN_BUFFER; 


FOREIGN BUFFER = .UNIT/BASSK_LUN MAX; 
ACTUAL_ONIT = .UNIT MOD BASSR_LUN_MAX; 


IF (.FOREIGN_BUFFER GTRU BASSK_MAX_FOR_B) THEN BASSS$STOP (BAS$K_ILLIO_CHA); 


BASS$$CB_PUSH (.FOREIGN BUFFER, LUBSK_LUN_MIN); 
CCB CISBS$A_USER_FP] = 7FMP CSFS$L_SAVE_FPI; 


; If ( NOT .CCB CLUBSV_OPENED]) THEN BAS$$STOP_IO (BAS$K_10_CHANOT); 

3 TEMP_R11 = .CCB; 

§ END; 

2 BASS$CB_PUSH (.ACTUAL_UNIT, LUBSK_ILUN_MIN); 

§ CCB CISBSA_USER_FP] =".FMP CSFSL_SAVE_FPJ; 

§ iF « NOT .CCB CLUBS$V_OPENED]) THEN BASS$$STOP_IO (BASS$K_IO_CHANOT); 

2 i+ 

2 ! Now that the data base is in place, store the statement type, store the index, and go 
§ directly to the REC level. 

.} 


CCB CLUBS$L_LOG_RECNO] = .RECORD_NUM; 
CCB CISBSB-STTM_TYPE) = iSB$K_ST_TY_PRE; 


'¢ 
: Check for virtual array usage and set block usage 


If .CCB CLUBSV_VA_USE) OR .CCB CLUBSV_READ_ONLY] THEN BAS$$STOP_IO (BASS$K_ILLILLACC); 


CCB CLUBS) _BLK_USE) = 1; 
BASSSREC_PRE (7COUNT, .TEMP_R11); 


Now that the PUT has been done, pop the CCB off the 1/0 system. 
BASSSCB_POP (); 


i Pop the “foreign buffer’ CB if necessary. It is kept on the CB stack until 
! now to guard against an AST closing the foreign buffer channel. 


ne ne ee ee ee ee ee et oe 
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BASSPUT 16-Sep-1984 9:27 AX-11 Bliss-32 V4.0-74 Page 21 
-011 12-800-} 8% 0 3 $5 BASRTL SREIBASPUT B30 04 . (Bs 
s 715 155 le 

$ rig 156 

me. 156 If (,TEMP_R11 NEQA 0) 

; at 1 o¢ THEN 

, FY 156 BEGIN 

; 720 1564 CCB = .TEMP_R11; 

: 721 1565 BASS$S$CB_POP™ ‘); 

ee. ¢ 1566 END; 

s fe 1567 

3: 7246 1568 1 END; !End of BAS$PUT_REC_CNT 

O9FC 00000 ENTRY 


BASSPUT_REC_CNT, Save R2,R3,R4,R5,R6,R7,R8,-; 1445 
BASS$$CB_POP, R8 


58 000000006 00 3 : 
57 000000006 00 9€ 00009 MOVAB BASS$$CB~PUSH, R7 : | 
36 000000006 00 9E 00010 MOVAB BAS$S$STOP_IO, R6 3 
5 5D 00 00017 MOVL FP, FMP + 1500 
55 4 GO0iA CLRL ~—sr TEMP_R11 + 1510. 
54 04 AC 00 000iC MOVL UNIT? ACTUAL_UNIT : 1511, 
00000077 = &F 04 aC D1 00020 CMPL NIT. #119 : 1513. 
44 15 00028 BLEQ : | 
52 04 AC 00000100 &8F (C7 000¢A DIVL3 #256, UNIT, FOREIGN_BUFFER + 1520 
7E 00 06 A 01 7A 00033 MUL = #1, UNIT, #0, - ; 1521 
54 54 BE 00000100 8F 7B 00039 EDIV #256, (SP)+, ACTUAL_UNIT, ACTUAL_UNI ; | 
0000007F BF 52 D1 00042 CMPL § FOREIGN_BUFFER, #127 : 1523 
0B 1B 00049 BLEQU 1 ; 
7E 006 8F 9A 00048 MOVZBL M#BAS$K_ILLIO_CHA, -(SP) : 
000000006 00 01 FB 0004F CALLS #1, BASS$STOP ; | 
50 D4 00056 1$: CLRL + 1525 
67 16 00058 JSB BAS$SCB_PUSH ; | 
FF4C CB OC A3 DO 0005A MOVL 12(FMP)7 -180(CCB) : 1526. 
07 FC AB EB 00060 BLBS  -4(CCB) > 1598. 
7E 00G 8F 9A 00064 MOVZBL M#BAS$K_ [0 CHANOT, -(SP) ; 
66 01 FB 00068 CALLS #1, BASS$$STOP_IO ; | 
55 5B DO 00068 a8: MOVL CCB, TEMP_R11 : 1530 
50 08 cE O006E 3$: MNEGL #8 : 1533 
52 54 00 00071 MOVL ACTUAL_UNIT, R2 ; | 
67 16 00074 JSB BAS$$CB_PUSH ; 
FF4C CB OC As 00 00076 MOVL 12(FMP)7 -180(CCB) + 1534 
97 FC AB £8 90076 LBS -4(CCB). 4 : 1536 
E 006 8F SA 0008 MOVZBL #BAS$K_{0 CHANOT, -(SP) ; 
66 01 FB 00084 ALLS #1, BAS$$STO 10 ; 
EO AB 08 AC b0 0087 4$: OVL RECORD NUM -32(CCB) ; 1542 
FF71 cB 27 90 0008C MOVB #39, -143(€cB) : 154 
0 FF AB €E8 00091 BLBS © = 1(¢cB), 5$ > 1548 
07 FC AB 02 FI 0095 BC #2, -4(€CB), 6$ ; 
7E 00G 8F 9A O009A 5$: MOVZBL M#BASSK TLLICLACC, -(SP) ; 
66 01 EB 009E CALLS #1, BAS$S$STOP_IO ; 
FF AB 0¢ 88 000A 6$: BISB2 #2. -1(CCB) : 1550 
50 DO O0A3 OVL  TEMP_R11, RO > 1551 
51 Oc AC DO OO0A MOVL COUNT, RI : 
000000006 00 16 O00aAC JSB BASS$$REC_PRE ; 
68 16 000B2 ISB BAS$$CB_POP > 1555 


| 3 
BASS$PUT ib-se 1984 00:59:27 AX-11 Bliss-32 V4.0-742 
on 14- att fi 90:33:85 BASRTL.SR RCIBASPUT.B32;1 
55 D5 00084 TSTL TEMP_R11 
9? 1 ita BEQL 7 
58 5 00 0008 MOVL TEMP_R11, CCB 
68 16 00088 JSB BAS$$(B_POP 
04 000B8D 7$ RET 
; Routine Size: 190 bytes, Routine Base: _BASS$CODE + 02A5 
s 23 1569 1 
3; 726 1570 1 END 'End of module - BAS$PUT 
: ise 1571 1 
3; 728 1572 0 ELUDOM 
; PSECT SUMMARY 
: Name Bytes Attributes 
: _BASSCODE 867 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
; Library Statistics 
Ti aero ie Se eI Mae eae Symbols -------- Pages Processing 
5 File Total Loaded Percent Mapped Time 
: _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 1 0 581 00:01.2 
; COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACE/LIS=LIS$:BASPUT/OBJ=OBJ$:BASPUT MSRC$:BASPUT/UPDATE=(ENH$:BASPUT) 
; Size: 867 code 0 data bytes 
; Run Time: 0:19.7 


; Elapsed Time: wf 45.6 
3 Lines/CPU Min: 4782 
3 Ronenee/SPU-tn 27660 
3 1,0 Used: 159 pages 
3 tee ation Complete 


| 
| 
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